home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / farbiger rand (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  205b  |  11 lines
  1. 5 FOR F=0 TO 15
  2. 10 FOR I=0 TO 39
  3. 20 POKE 1024+I,42:POKE 55296+I,F
  4. 30 POKE 1024+960+I,42:POKE 55296+960+I,F
  5. 40 NEXT I
  6. 50 FOR K=0 TO 960 STEP 40
  7. 60 POKE 1024+K,42:POKE 55296+K,F
  8. 70 POKE 1024+39+K,42:POKE 55296+39+K,F
  9. 80 NEXT K
  10. 90 NEXT F
  11.